home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TXSCALES.PRG < prev    next >
Text File  |  1991-09-01  |  1KB  |  53 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXSCALES.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit(_print_port)
  12. txreset()
  13. txpagesize("letter")
  14. txorient("P")
  15. txsetlpi(6)
  16.  
  17. _company   = "Texas Associated Software"
  18.  
  19. _points = 10
  20. for i = 1 to 30 step 2
  21.    txscalable("C", .f., "U", _points)
  22.    txcolprint( i, 10, .t., _company)
  23.    _points = _points + 2
  24. Next
  25.  
  26. _points = _points - 2
  27. for i = 32 to 62 step 2
  28.    txscalable("U", .f., "I", _points)
  29.    txcolprint( i, 10, .t., _company)
  30.    _points = _points - 2
  31. Next
  32.  
  33. txorient("L")             && this will print current page before
  34. && setting new orientation
  35.  
  36. _points = 10
  37. for i = 1 to 20 step 2
  38.    txscalable("C", .f., "U", _points)
  39.    txcolprint( i, 10, .t., _company)
  40.    _points = _points + 2
  41. Next
  42.  
  43. _points = _points - 2
  44. for i = 22 to 42 step 2
  45.    txscalable("U", .f., "I", _points)
  46.    txcolprint( i, 10, .t., _company)
  47.    _points = _points - 2
  48. Next
  49.  
  50. txclear()
  51.  
  52. *: EOF: TXSCALES.PRG
  53.